home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 3: CDPD 3 / Almathera Ten on Ten - Disc 3: CDPD3.iso / scope / 151-175 / scopedisk161 / cgnhlp / lastc.f < prev    next >
Text File  |  1995-03-19  |  507b  |  20 lines
  1. C-------------------------------------------------------------------
  2.       INTEGER FUNCTION LASTC( STRING )
  3. C     FIND THE LAST NON BLANK CHARACTER IN THE STRING 'STRING'.
  4. C     (CONTROL CHARACTERS ARE CONSIDERED TO BE BLANKS).
  5.       IMPLICIT NONE
  6.       CHARACTER STRING*(*)
  7.       INTEGER I
  8.       INTEGER L
  9. C
  10.       L = LEN( STRING )
  11.       DO 1000 I=L,1,-1
  12.          IF( STRING(I:I) .GT. ' ' ) THEN
  13.             LASTC = I
  14.             RETURN
  15.          ENDIF
  16.  1000 CONTINUE
  17.       LASTC = 0
  18.       RETURN
  19.       END
  20.